home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / Scope Rule.jeff < prev    next >
Encoding:
Text File  |  1986-12-08  |  620 b   |  40 lines  |  [TEXT/JEFF]
  1. MARK 0    -------MAIN-------
  2. ENTR 4    CALL MAIN
  3. SNAP
  4. STOP      -------MAIN-------
  5. PUSH 2
  6. SNAP
  7. MARK 1    CALL TO P
  8. ENTR 10
  9. SNAP
  10. EXIT     ------MARK 0--------
  11. PUSH 1    ------ P  ------
  12. SNAP
  13. MARK 2    CALL P2
  14. ENTR 15
  15. EXIT      ------ P -------
  16. SNAP      ------P2---------
  17. MARK 3    CALL P3
  18. ENTR 19
  19. EXIT      ------P2---------
  20. PUSH 5    ------P3---------
  21. SNAP
  22. MARK 4    CALL P4
  23. ENTR 24
  24. EXIT      ------P3---------
  25. ILIT 6    ------P4---------
  26. STOR 3 7
  27. SNAP
  28. MARK 2    CALL P1
  29. ENTR 30
  30. EXIT      -------P4--------
  31. PUSH 2    -------P1--------
  32. ILIT 4
  33. STOR 1 4
  34. ILIT 5
  35. STOR 2 5
  36. WRIT 1 4
  37. WRIT 2 5
  38. SNAP
  39. EXIT      -------P1---------
  40.